home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / moving sign.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  95 lines
  1. 10 POKE56,128:POKE56576,149:POKE53272,4:POKE648,128:POKE792,116:POKE793,164:CLR
  2. 15 PRINT"[142][147]          M O V I N G    S I G N"
  3. 17 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  4. 21 [153],"STEVEN DARNOLD
  5. 22 PRINT,"P.O. BOX 201
  6. 23 [153],"ALEXANDRA, NEW ZEALAND
  7. 25 DIMA%(58,4):FORI=826TO1010:POKEI,PEEK(I+3151):NEXT
  8. 27 FORX=0TO58:IFX/2=INT(X/2)THENSYS826
  9. 28 FORY=0TO4
  10. 29 READA%(X,Y)
  11. 30 NEXTY,X
  12. 32 DATA0,0,0,0,0
  13. 33 DATA0,0,122,0,0
  14. 34 DATA0,112,0,112,0
  15. 35 DATA20,127,20,127,20
  16. 36 DATA18,42,127,42,36
  17. 37 DATA98,100,8,19,35
  18. 38 DATA54,73,53,2,5
  19. 39 DATA0,0,16,32,64
  20. 40 DATA0,0,28,34,65
  21. 41 DATA65,34,28,0,0
  22. 42 DATA34,20,127,20,34
  23. 43 DATA8,8,127,8,8
  24. 44 DATA0,1,6,0,0
  25. 45 DATA8,8,8,8,8
  26. 46 DATA0,0,1,0,0
  27. 47 DATA2,4,8,16,32
  28. 48 DATA62,65,65,65,62
  29. 49 DATA0,33,127,1,0
  30. 50 DATA39,73,73,73,49
  31. 51 DATA66,65,73,89,102
  32. 52 DATA12,20,36,127,4
  33. 53 DATA114,81,81,81,78
  34. 54 DATA30,41,73,73,70
  35. 55 DATA65,66,68,72,112
  36. 56 DATA54,73,73,73,54
  37. 57 DATA49,73,73,74,60
  38. 58 DATA0,0,20,0,0
  39. 59 DATA0,1,22,0,0
  40. 60 DATA0,8,20,34,65
  41. 61 DATA20,20,20,20,20
  42. 62 DATA0,65,34,20,8
  43. 63 DATA32,64,133,72,48
  44. 64 DATA28,34,93,85,61
  45. 65 DATA63,68,68,68,63
  46. 66 DATA127,73,73,73,54
  47. 67 DATA62,65,65,65,34
  48. 68 DATA127,65,65,65,62
  49. 69 DATA127,73,73,65,65
  50. 70 DATA127,72,72,72,64
  51. 71 DATA62,65,65,69,70
  52. 72 DATA127,8,8,8,127
  53. 73 DATA0,65,127,65,0
  54. 74 DATA2,1,1,1,126
  55. 75 DATA127,8,20,34,65
  56. 76 DATA127,1,1,1,1
  57. 77 DATA127,32,24,32,127
  58. 78 DATA127,16,8,4,127
  59. 79 DATA62,65,65,65,62
  60. 80 DATA127,72,72,72,48
  61. 81 DATA62,65,69,66,61
  62. 82 DATA127,72,76,74,49
  63. 83 DATA50,73,73,73,38
  64. 84 DATA64,64,127,64,64
  65. 85 DATA126,1,1,1,126
  66. 86 DATA120,6,1,6,120
  67. 87 DATA127,2,12,2,127
  68. 88 DATA99,20,8,20,99
  69. 89 DATA96,16,15,16,96
  70. 90 DATA67,69,73,81,97
  71. 100 GOSUB500:PRINT"TYPE IN THE MESSAGE YOU WANT TO DISPLAY"
  72. 200 POKE198,0:POKE204,0
  73. 205 WAIT198,7:GETB$:B=ASC(B$):IFB>90THEN205
  74. 210 ZL=LEN(A$):IFZL=255ANDB>20THEN205
  75. 220 IFB=13ANDZLTHEN300
  76. 230 IFB=20ANDZLTHENPRINTB$;:A$=LEFT$(A$,LEN(A$)-1):GOTO205
  77. 235 IFB<32THEN205
  78. 240 PRINTB$;:A$=A$+B$:GOTO205
  79. 300 POKE204,1:GOSUB500
  80. 305 FORK=1TOLEN(A$)
  81. 310 Y=ASC(MID$(A$,K,1))-32
  82. 315 FORJ=0TO4
  83. 316 POKE1010,A%(Y,J)
  84. 320 SYS904
  85. 322 SYS826
  86. 325 NEXT
  87. 330 SYS826:SYS826
  88. 340 NEXT
  89. 400 FORK=1TO80
  90. 410 SYS826
  91. 415 FORI=1TO10:NEXT
  92. 420 NEXT
  93. 430 GOTO305
  94. 500 PRINT"[147]":FORI=1TO99:PRINT"         ";:NEXT:RETURN
  95.